﻿Public Class MachSongSong
    Inherits MachPhuc

    Public Sub New(ByVal ParamArray dsR As Double())
        MyBase.New(dsR)
    End Sub
    Public Sub New(ByVal ParamArray dsmd As MachDien())
        MyBase.New(dsmd)
    End Sub

    Public Overrides Sub Nhap()
        'cai dat sau
    End Sub

    Public Overrides Sub Xuat()
        'cai dat sau
    End Sub

    Public Overrides Function TongTro() As Double
        Dim kq As Double
        kq = 0
        For Each md As MachDien In _dsMachDien
            kq = kq + 1 / md.TongTro()
        Next

        Return 1 / kq
    End Function
End Class
